#@dis=('LGG','BLCA','BRCA','COAD','GBM','KIRC','LAML','LGG','LUAD','LUSC','OV','PRAD','READ');
@dis=('KIRC','LAML','LGG');
for($y=0;$y<@dis;$y++)
{
	print "dealing $dis[$y]\n";
	$dir=`ls ./$dis[$y]`;
	@dir = split("\n",$dir);
	#print "@dir\n";
	for($i=0;$i<@dir;$i++)
	{
		$len=`wc -l ./$dis[$y]/$dir[$i]`;
		chomp($len);
		$len=~ s/ .+//g;
		#print $len."\n";
		if($len < 506602)
		{
			print "$len $dir[$i]\n";
			system("rm ./$dis[$y]/$dir[$i]");
		}
	}
}
